﻿Public Class xtf_ABMRegistro 
    Dim obj_registro As cls_registro_ = Nothing

    Public Sub New(ByRef registro As cls_registro_)
        InitializeComponent()
        Try
            CargarRegistroEstado_()
            Me.Text = "Estado"
            obj_registro = New cls_registro_

            obj_registro = registro

            lbl_FechaCreado.Text = Format(obj_registro.fechacreado, fmt_FechaLarga)
            lbl_FechaCreado.Tag = obj_registro.fechacreado
            lbl_UsuarioCreado.Text = obj_registro.usuariocreado.ToString
            lbl_FechaModificado.Text = Format(obj_registro.fechamodificado, fmt_FechaLarga)
            lbl_FechaModificado.Tag = obj_registro.fechamodificado
            lbl_UsuarioModificado.Text = obj_registro.usuariomodificado.ToString
            cbo_RegistroEstado.EditValue = obj_registro.idregistroestado

            If obj_registro.fecharegistroestado = New System.DateTime(Now.Year, 1, 1) Then
                lbl_FechaEstado.Text = ""
                lbl_FechaEstado.Tag = obj_registro.fecharegistroestado
                lbl_UsuarioEstado.Text = ""
            Else
                lbl_FechaEstado.Text = Format(obj_registro.fecharegistroestado, fmt_FechaLarga)
                lbl_FechaEstado.Tag = obj_registro.fecharegistroestado
                lbl_UsuarioEstado.Text = obj_registro.usuarioregistroestado.ToString
            End If

            txt_Observaciones.Text = obj_registro.observaciones
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Private Sub CargarRegistroEstado_()
        Dim registroestado_ As New cls_registroestado_
        registroestado_.CargarTodos()
        cargarCombo(cbo_RegistroEstado, registroestado_.Items)
    End Sub

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If obj_registro.idregistroestado <> cbo_RegistroEstado.EditValue Then
            obj_registro.idregistroestado = cbo_RegistroEstado.EditValue
            obj_registro.fecharegistroestado = Now
        End If
        If obj_registro.observaciones <> txt_Observaciones.Text Then
            obj_registro.observaciones = txt_Observaciones.Text
        End If
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class